;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;//迨
<--! %userport = 06
<--! %psAmport = 07

setreader %userport
reset
<--! %sn1=@strmidh(%resp,@Strlen(%resp)-8,8)

;ܻԿ
<--! %s_sjlstk = 57415443484441544154696D65434F53
;Ӽܻ
setreader 03
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;MF
;PUK  B060 000000000000FFFF 0100 0201 01 %sn1
<--! %keyid=0100
B060 000000000000FFFF %keyid 0201 01 %sn1
<--! %sdata = @STRMIDH(%RESP,9,16)
<--! %sPUKMF = @desjs(%s_sjlstk,%sdata,1)

;STKMF B0A0 000000000000FFFF 0173 0201 01 %sn1
<--! %keyid=0173
B0A0 000000000000FFFF %keyid 0201 01  %sn1
<--! %sdata = @STRMIDH(%RESP,9,16)
<--! %Skeyallfs = @desjs(%s_sjlstk,%sdata,1)
<--! %sSTKMF = @left(@right(%Skeyallfs,24),8)


<--! %sPUKMF = 1A22408DB18332BC8B0F5723BA32A52F
0084000008
compsta 90 00
<--! %retdata = @strmidh(%resp,0,8)
<--! %seslk = @desjs(%sPUKMF,%retdata,0)
<--! %sencdata = @desjs(%seslk , 1122334455667788,0)
00 82 0006 11 %sencdata 1122334455667788 00
compsta 90 00

<--! %sSTKMF = 018E14366609BB25

;;;;лû
<--! %xmm = 123456
setreader %userport
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;û 
;PIN   δʱʧ
00 84 00 00 08
<--! %rand=@strmid(%resp,0,16)
<--! %rcmd=84 24 00 00 04 
sendtxt %rcmd @sbmac(%sSTKMF,%rcmd,%rand)
reccmptxt 90 00

00 20 00 00 03 123456
RECCMPTXT 90 00

;PINװ
<--! %newpin=123456
<--! %cnewpinlen=@strlen(%newpin)
00 84 00 00 08
<--! %rand=@strmidh(%resp,0,8)
<--! %ssubSTKMF=@subkey(%sSTKMF,%rand)
<--! %pindes=@encrdata(%ssubSTKMF,%newpin,0)
<--! %rcmd=84 24 00 01 0c + %pindes
<--! %rcmdmac=@mac(%ssubSTKMF,%rcmd,0000000000000000)

sendtxt %rcmd %rcmdmac
reccmptxt 90 00

;PINװ
<--! %newpin=123456
<--! %cnewpinlen=@strlen(%newpin)
00 84 00 00 08
<--! %rand=@strmidh(%resp,0,8)
<--! %pindes=@sbencrdata(%sSTKMF,%newpin,%rand)
<--! %rcmd=84 24 00 01 0c + %pindes
<--! %rcmdmac=@sbmac(%sSTKMF,%rcmd,%rand)
sendtxt %rcmd %rcmdmac
reccmptxt 90 00



